home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Grab Bag
/
Shareware Grab Bag.iso
/
007
/
boosters.arc
/
LEFT.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1980-01-01
|
896b
|
37 lines
{ --------------------------------
LEFT justify a string in a field
-------------------------------- }
Function LEFT ( S : AnyString;
N : Integer;
Pad : Char ) : AnyString;
{ AnyString is Type string[255] }
begin
Inline ( $1E/
$8D/$76/$09/
$8D/$9E/$08/$01/
$8B/$46/$06/
$36/$88/$07/
$43/
$8A/$4E/$08/
$30/$ED/
$29/$C8/
$77/$05/
$31/$C0/
$EB/$0F/$90/
$8B/$FB/
$01/$CF/
$8B/$C8/
$8B/$46/$04/
$16/
$07/
$FC/
$F3/$AA/
$8B/$FB/
$16/
$1F/
$8A/$4E/$08/
$30/$ED/
$FC/
$F3/$A4/
$1F );
end;